*Ura & Wohlfarth PSRM*
*Replication Analysis*
*June 2020*


use "/Users/pwohlfarth/Dropbox/Jurisdiction Stripping/Jurisdiction Stripping Data/Final Data/uraWohlfarthPSRM.dta"

tsset year

*Figure 1(a)
*Percentage of Jurisdiction-Stripping Laws
twoway line pctstrippl year if year > 1972, lcolor(black) lwidth(medthin) scheme(s1mono) xtitle(Year) xlabel(1973(5)2014) ytitle(Percentage of Jurisdiction-Stripping Laws) ylabel(0(2)8)

*Figure 1(b)
*Count of Jurisdiction-Stripping Laws vs. Court-Curbing Bills Proposed
twoway line jurstriptotal curbingBills year if year > 1972, lcolor(black) lwidth(medthin) scheme(s1mono) xtitle(Year) xlabel(1973(5)2014) ytitle(Number of Congressional Actions) legend(order(1 "Jurisdiction Stripping Laws" 2 "Court-Curbing Bills"))


*Table 1 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds

*Table 1 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands baileyDist_Midpoint totalplHundreds

*Table 1 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds

*Figure 2(a)
quietly nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds
quietly margins, at(conjudge=(0.24(.01)0.39))
marginsplot, xlabel(0.24(.03)0.39) ylabel(0(5)15) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(95) xtitle(Public Confidence in the Supreme Court) ytitle(Predicted Count of Jurisdiction-Stripping Laws) title("") scheme(s1mono)

*Figure 2(b)
quietly nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds
quietly margins, at(conlegis=(0.06(.01)0.24))
marginsplot, xlabel(0.06(.03)0.24) ylabel(0(5)15) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(95) xtitle(Public Confidence in Congress) ytitle(Predicted Count of Jurisdiction-Stripping Laws) title("") scheme(s1mono)


***Supplementary Appendix
*Table 1 -- Model 1
reg loggedPctStrip conjudge conlegis 
bgodfrey

*Table 1 -- Model 2
reg loggedPctStrip conjudge conlegis d.workloadThousands baileyDist_Midpoint
bgodfrey

*Table 1 -- Model 3
reg loggedPctStrip conjudge conlegis workloadPerJudge_District baileyDist_Midpoint
bgodfrey

*Table 1 -- Model 4
reg loggedPctStrip conjudge conlegis workloadPerJudge_District baileyDist_Midpoint l.loggedPctStrip
bgodfrey


*Figure 1(a)
quietly reg loggedPctStrip conjudge conlegis workloadPerJudge_District baileyDist_Midpoint
quietly margins, at(conjudge=(0.24(.01)0.39)) atmeans
marginsplot, xlabel(0.24(.03)0.39) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(95) xtitle(Public Confidence in the Supreme Court) ytitle(Percentage of Jurisdiction-Stripping Laws (Logged)) title("") scheme(s1mono)

*Figure 1(b)
quietly reg loggedPctStrip conjudge conlegis workloadPerJudge_District baileyDist_Midpoint
quietly margins, at(conlegis=(0.06(.01)0.24)) atmeans
marginsplot, xlabel(0.06(.03)0.24) plotopt(msymbol(none)) ciopts(color(gs10)) recastci(rarea) level(95) xtitle(Public Confidence in Congress) ytitle(Percentage of Jurisdiction-Stripping Laws (Logged)) title("") scheme(s1mono)


*Table 2 -- Relative Confidence
*Table 2 -- Model 1
nbreg jurstriptotal courtCongRelativeConf totalplHundreds
*Table 2 -- Model 2
nbreg jurstriptotal courtCongRelativeConf d.workloadThousands baileyDist_Midpoint totalplHundreds
*Table 2 -- Model 3
nbreg jurstriptotal courtCongRelativeConf workloadPerJudge_District baileyDist_Midpoint totalplHundreds


*Table 3 -- Net Confidence
*Table 3 -- Model 1
nbreg jurstriptotal courtNetConf congNetConf totalplHundreds
*Table 3 -- Model 2
nbreg jurstriptotal courtNetConf congNetConf d.workloadThousands baileyDist_Midpoint totalplHundreds
*Table 3 -- Model 3
nbreg jurstriptotal courtNetConf congNetConf workloadPerJudge_District baileyDist_Midpoint totalplHundreds


*Table 4 -- Add Unified Congress
*Table 4 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds unifiedCongress
*Table 4 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands baileyDist_Midpoint totalplHundreds unifiedCongress
*Table 4 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds unifiedCongress


*Table 5 -- Add Unified Government
*Table 5 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds unifiedGov
*Table 5 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands baileyDist_Midpoint totalplHundreds unifiedGov
*Table 5 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds unifiedGov


*Table 6 -- JCS Supreme Court-Congress Ideological Distance
*Table 6 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds
*Table 6 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands congCourtDist_JCS totalplHundreds
*Table 6 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District congCourtDist_JCS totalplHundreds


*Table 7 -- Workload Predictors Using All Civil Cases Involving the U.S. Government
*Table 7 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds 
*Table 7 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands_allCivil baileyDist_Midpoint totalplHundreds 
*Table 7 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudgeAll_District baileyDist_Midpoint totalplHundreds 
*Table 7 -- Model 4
nbreg jurstriptotal conjudge conlegis d.workloadPerJudgeAll_District baileyDist_Midpoint totalplHundreds 


*Table 8 -- Add Congress-Median Circuit Court Ideological Distance
*Table 8 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds congCircuitsDist_JCS
*Table 8 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands baileyDist_Midpoint totalplHundreds congCircuitsDist_JCS
*Table 8 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds congCircuitsDist_JCS


*Table 9 -- Add Congress-D.C. Circuit Ideological Distance
*Table 9 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds congDCDist_JCS
*Table 9 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands baileyDist_Midpoint totalplHundreds congDCDist_JCS
*Table 9 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds congDCDist_JCS
*Table 9 -- Model 4
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds d.congDCDist_JCS


*Table 10 -- Add Supreme Court-President Ideological Distance
*Table 10 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds baileyDist_President
*Table 10 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands baileyDist_Midpoint totalplHundreds baileyDist_President
*Table 10 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds baileyDist_President


*Table 11 -- Add Congress-President Ideological Distance
*Table 11 -- Model 1
nbreg jurstriptotal conjudge conlegis totalplHundreds baileyDist_midCongPres
*Table 11 -- Model 2
nbreg jurstriptotal conjudge conlegis d.workloadThousands baileyDist_Midpoint totalplHundreds baileyDist_midCongPres
*Table 11 -- Model 3
nbreg jurstriptotal conjudge conlegis workloadPerJudge_District baileyDist_Midpoint totalplHundreds baileyDist_midCongPres



